home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / windownt / perlnt.zip / t / op / glob.nt < prev    next >
Text File  |  1993-07-25  |  655b  |  30 lines
  1. #!./perl
  2.  
  3. # $Header: glob.t,v 4.0 91/03/20 01:52:49 lwall Locked $
  4.  
  5. print "1..4\n";
  6.  
  7. @INC = ("..\..");
  8.  
  9. @ops = <op/*>;
  10. $list = join(' ', sort @ops);
  11.  
  12. opendir(R, "op");
  13. @files = grep(/^[^.].*$/, readdir(R));
  14. closedir R;
  15. @files = sort grep (tr/[A-Z]/[a-z]/ && 1, @files);
  16. $otherway = "op/" . join(" op/", @files);
  17.  
  18. print $list eq $otherway ? "ok 1\n" : "not ok 1\n$list\n$otherway\n";
  19.  
  20. print $/ eq "\n" ? "ok 2\n" : "not ok 2\n";
  21.  
  22. while (<jskdfjskdfj* op/* jskdjfjkosvk*>) {
  23.     $not = "not " unless $_ eq shift @ops;
  24.     $not = "not at all " if $/ eq "\0";
  25. }
  26. print "${not}ok 3\n";
  27.  
  28. print $/ eq "\n" ? "ok 4\n" : "not ok 4\n";
  29.  
  30.